home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Contrib / STk-wtour / lessons / bind3.stk < prev    next >
Encoding:
Text File  |  1995-12-12  |  217 b   |  7 lines
  1. ;; Even more event binding: accessing the event parameters
  2.  
  3. (entry '.e1 :relief "sunken")
  4. (pack .e1 :expand #t :fill "x")
  5. (bind .e1 "<ButtonPress-1>" (lambda (x y) 
  6.                   (format #t "button down at ~a,~a\n" x y)))
  7.